home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / scary / scary.frm < prev    next >
Text File  |  1995-05-08  |  5KB  |  186 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H000080FF&
  4.    Caption         =   "Scary Time"
  5.    ClientHeight    =   3120
  6.    ClientLeft      =   2535
  7.    ClientTop       =   2115
  8.    ClientWidth     =   4320
  9.    ControlBox      =   0   'False
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "Arial"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   3525
  17.    Icon            =   SCARY.FRX:0000
  18.    Left            =   2475
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   3120
  22.    ScaleWidth      =   4320
  23.    Top             =   1770
  24.    Width           =   4440
  25.    Begin Timer Timer1 
  26.       Interval        =   1000
  27.       Left            =   2760
  28.       Top             =   840
  29.    End
  30.    Begin PictureBox Picture1 
  31.       BackColor       =   &H000080FF&
  32.       BorderStyle     =   0  'None
  33.       ForeColor       =   &H000080FF&
  34.       Height          =   255
  35.       Left            =   0
  36.       ScaleHeight     =   255
  37.       ScaleWidth      =   9495
  38.       TabIndex        =   3
  39.       Top             =   -120
  40.       Width           =   9495
  41.    End
  42.    Begin Label Label2 
  43.       Alignment       =   2  'Center
  44.       BackColor       =   &H000080FF&
  45.       FontBold        =   -1  'True
  46.       FontItalic      =   0   'False
  47.       FontName        =   "Futura Md BT"
  48.       FontSize        =   30
  49.       FontStrikethru  =   0   'False
  50.       FontUnderline   =   0   'False
  51.       Height          =   735
  52.       Left            =   360
  53.       TabIndex        =   1
  54.       Top             =   1800
  55.       Width           =   3735
  56.    End
  57.    Begin Label Label1 
  58.       Alignment       =   2  'Center
  59.       BackColor       =   &H000080FF&
  60.       Caption         =   "Dial Time at 853-1212"
  61.       FontBold        =   -1  'True
  62.       FontItalic      =   0   'False
  63.       FontName        =   "Futura Md BT"
  64.       FontSize        =   30
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       Height          =   1335
  68.       Left            =   120
  69.       TabIndex        =   0
  70.       Top             =   120
  71.       Visible         =   0   'False
  72.       Width           =   4170
  73.    End
  74.    Begin Label Label3 
  75.       Alignment       =   2  'Center
  76.       BackColor       =   &H000080FF&
  77.       Caption         =   "Happy Halloween"
  78.       FontBold        =   -1  'True
  79.       FontItalic      =   0   'False
  80.       FontName        =   "Futura Md BT"
  81.       FontSize        =   30
  82.       FontStrikethru  =   0   'False
  83.       FontUnderline   =   0   'False
  84.       Height          =   1695
  85.       Left            =   0
  86.       TabIndex        =   2
  87.       Top             =   120
  88.       Width           =   4215
  89.    End
  90.    Begin Menu SetOptions 
  91.       Caption         =   "&Options"
  92.       Visible         =   0   'False
  93.       Begin Menu SetClock 
  94.          Caption         =   "&Set The Clock"
  95.       End
  96.       Begin Menu ShowNum 
  97.          Caption         =   "&What's The Number?"
  98.       End
  99.       Begin Menu HideNum 
  100.          Caption         =   "&Can't See The clock!"
  101.          Visible         =   0   'False
  102.       End
  103.       Begin Menu AboutCom 
  104.          Caption         =   "&About The Author"
  105.       End
  106.       Begin Menu ByeCom 
  107.          Caption         =   "&Exit"
  108.       End
  109.    End
  110.    Begin Menu HelpCom 
  111.       Caption         =   "&Help"
  112.       Visible         =   0   'False
  113.    End
  114. End
  115. Sub AboutCom_Click ()
  116. About
  117.  
  118. End Sub
  119.  
  120.  
  121. Sub ByeCom_Click ()
  122.  End
  123.  
  124. End Sub
  125.  
  126. Sub HelpCom_Click ()
  127.              scary2.Show
  128.              form1.Hide
  129. SetOptions.visible = 0
  130. HelpCom.visible = 0
  131.  
  132. End Sub
  133.  
  134. Sub HideNum_Click ()
  135. label1.visible = 0
  136. label2.visible = -1
  137. label3.visible = -1
  138. ShowNum.visible = -1
  139. HideNum.visible = 0
  140. SetOptions.visible = 0
  141. HelpCom.visible = 0
  142.  
  143.  
  144. End Sub
  145.  
  146. Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  147. SetOptions.visible = -1
  148. HelpCom.visible = -1
  149. End Sub
  150.  
  151. Sub Picture1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  152. SetOptions.visible = -1
  153. HelpCom.visible = -1
  154. End Sub
  155.  
  156. Sub SetClock_Click ()
  157. Msg$ = "I will Call up the Control Panel."
  158. MsgBox Msg$
  159. Y = Shell("control.exe", 1)
  160. SetOptions.visible = 0
  161. HelpCom.visible = 0
  162. End Sub
  163.  
  164. Sub ShowNum_Click ()
  165. label1.visible = -1
  166. label2.visible = 0
  167. label3.visible = -0
  168.  
  169. ShowNum.visible = 0
  170. HideNum.visible = -1
  171. SetOptions.visible = 0
  172. HelpCom.visible = 0
  173. End Sub
  174.  
  175. Sub Timer1_Timer ()
  176.  
  177. Dim MyTime As String
  178. Dim Hours As Integer
  179. MyTime = Time$
  180. Hours = Val(MyTime)
  181. If Hours > 12 Then Mid$(MyTime, 1, 2) = Str$(Hours - 12)
  182. label2.caption = MyTime
  183.  
  184. End Sub
  185.  
  186.